home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 65.zip / BS1 part 65 / Art Department Pro 2.15 d2.adf / RXProgs.lzh / CheckDPI.adpro next >
Text File  |  1992-03-10  |  625b  |  32 lines
  1. /*  
  2.     This program calls ZapDPI and reports DPI status.
  3. */
  4.  
  5. OPTIONS RESULTS
  6.  
  7. ADDRESS "ADPro"
  8.  
  9. NL = '0A'X
  10.  
  11. GETFILES '"Select IFF files to Check:"'
  12. IF RC ~= 0 THEN DO
  13.    /* No selection */
  14.    EXIT
  15. END
  16.  
  17. LIST  = ADPRO_RESULT
  18. COUNT = WORDS(LIST)
  19. I     = 1
  20.  
  21. DO WHILE (I <= COUNT)
  22.     ADDRESS COMMAND "ZAPDPI" "-c" WORD(LIST,I)
  23.     ZAPRESULT = RC
  24.     STRING = WORD(LIST, I)
  25.     STRING = STRIP(STRING , 'b' , '"')
  26.     IF ZAPRESULT = 5 THEN ERRSTRING = "contains a DPI chunk."
  27.     ELSE IF ZAPRESULT = 0 THEN ERRSTRING = "does not contain a DPI chunk."
  28.     ELSE ERRSTRING = "Error reading or locating file."
  29.     OKAY1 STRING || NL || ERRSTRING
  30.     I = I + 1
  31. END
  32.